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COMPUTER USER GROUP NZ (inc) 


EDITORIAL 


Questionnaire: Have you returned yours yet? We would like 
a good cross-section of opinion well before the AGM. 


With this being the first issue for 1989, I would like to 
thank the contributors represented in this issue: 


L ES Amon Dunedin 
John Andrew Wellington 
Anne Flower Wellington 
Roger Gonin Dunedin 


Once again, Dunedin is strongly represented. 


Unfortunately the finished quality of Beeblet has been a 
little disappointing recently. If you’ve suffered from 
the problem I refer you to page 23. 


Other editorial policy matters are repeated on pages 9 
(free programs) and 23 (listing of programs). 


I must repeat the importance of returning the 
questionnaires published in the December issue of Beeblet. 
Many of you will be unable to attend the AGM and this is 
an opportunity to make your opinions Known. Of course, if 
you have some constructive ideas, don’t be limited by the 
questionnaire - add a separate note to the secretary. 


What I would like to see is Special Interest groups 
contributing regular pages to the magazine. I envisage a 
specialist coordinator (who might not even reside in 
Wellington). Eg: Education. What do you think? Any 
volunteers? Drop me a line if you wish. 

Happy Computing Graham Ellett 


DISCLAIMER 


The views of reviewers, contributors and/or Editorial 
committee are not necessarily shared by 


THE BBC/ACORN COMPUTER USER GROUP NZ INC. 
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The following are details of the 1989 Annual General 
Meeting of the BBC/Acorn User Group of New Zealand Inc : 





LOCATION 
Royal Society Building 
Turnbull Street 
WELLINGTON 

AT 


7-45 pm, Wednesday 8 March 1989 


All members and intending members are cordially invited 
to this meeting, particularly any from outside of 
Wellington who can attend. 


AGENDA 


1 Apologies 

Minutes of the previous AGM 
(published in Beeblet April 1988) 

Matters arising from the minutes 

Correspondence 

Matters arising from the correspondence 

President’s report 

Local Group’s reports 

Financial report 

Election of Officers 

General Business 


moon mano A Ww Nh 


© 


The AGM is the opportunity for the membership to express 
Opinions on the running of the National User Group and for 
ideas on the future operation and nature of the Group. 


Those members not able to attend and wishing to express 


ideas, or offers of assistance are asked to write to the 
Secretary, PO Box 9592, Wellington. 


The Wellington User Group meeting will follow the AGM. 
ee ee ee 
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Video Computer Audio 


How Much Recor i i om 


Remains on Your Tape? 
by L. E. S. Amon, Dunedin 


Modern tape and video recorders usually incorporate a 
digital counter to help you to find your way back to 
interesting items on the tape. The observant will have 
noticed that most of them accumulate counts slowly at one 
end of the tape and rapidly at the other, and probably 
Geduced therefrom that they are driven from either the 
feed or the take up hub. As the tape builds up on the 
hub, one turn winds an increasing length of tape and the 
counter accumulates more slowly. 


Often the situation arises that we need to Know whether 
enough tape remains to record a programme of a Known 
duration. It is a simple matter to find the count at 
which the existing recording ends, and the count at which 
the tape runs out by using the fast forward mode, but what 
does it all mean? You may Know that the answer is 42, but 
if the tape runs out just before the denouement, you may 
never get to learn the question. Frustration. 


Down here in Dunedin, there is another consideration; we 
don’t like to waste things, so recording the last episode 
on a new tape is anathema to us if it turns out that in 
fact there was enough blank tape on the end of the 
penultimate episode. Fortunately there is a simple answer 
which can be incorporated in a short BASIC progran. 


The program asks you to make a series of observations of 
tape counter readings representing one minute of playing 
time at varying positions on the tape (after zeroing the 
counter at the beginning of the taped. It then prints out 
a table of time (from zero at the beginning of the tape) 
for equal increments of the tape counter on your recorder; 
and also the counter readings for equal time increments. 


NOTE: A SEPARATE TABLE MUST BE PRINTED FOR EACH DIFFERENT 
THICKNESS OF TAPE: C60, C90, or E 120, E 180, E 240, etc. 
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At this stage you should be able to type in and use the 
program without reading any further. The program is a 
“quick and dirty" one which was written to use once and 
throw away. Like so many of its type, it did not get 
thrown away, but instead got modified and grew into the 
little monster you see here. It exemplifies the adage 
“that no program need be wasted; at worst it can always be 
used as a bad example.” What remains is for anyone 
interested in the theory behind the progran. 


We assume that the counter is reading something 
proportional to the turns of either the supply or take up 
reel. (In the case of my JVC video recorder it is the 
take up reel). The length of tape will then be 
proportional to the area of tape edge on the reel, which 
in turn is proportional to the square of the radius (R) of 
tape on the reel minus the square of the radius (r) of the 
hub. (The constant of proportionality is pi divided by 
the thickness of the tape). 


So at any point, the increase in tape counter reading for 
a short interval of time will be inversely proportional to 
the number oaf turns on the take up reel times the 
thickness of the tape times some arbitrary constant. COr 
proportional to the number of turns remaining on the 
feeding reel etc.) 


Assuming the counter to be zeroed with the take up reel 
empty, the elapsed time, t, relates to the counter 
reading, N, as: 


t = aN + BN (1) 


and at a given N, the increase in time, dt, relates to the 
increase in counter reading, @N, as: 


dt = (€2aN + bddN (2) 
for time in minutes. (The latter equation is a_ simple 
differential equation; the lower case @a’s are operators 
rather than variables, so they do not cancel out). 
The program uses Equation 2 to determine a & b, which are 


then substituted back into Equation 1 to calculate the 
table. 
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My recorder yielded the following observations for an 

E 180 tape: 

Tape Counter 1 minute run Begin, End 
00.20,00.70 02.60,03.05 14.77,15.07 
15.93,16.22 30.00,30.21 31.83,32.03 
43.97,44.15 44.65,44.84 

These values can be used as test data for the progran. 


The table should show a counter reading 


of approximately 


46.00 for 180 minutes with these data. 


REFERENCE 

Spiegel, M.R., Theory and Problems of Statistics, p.220, 
Schaum Publishing Co., New York, 1961. 

BUT any elementary text on statistics should deal with 
this topic under the heading of Curve fitting, Method of 
least squares, Regression analysis, Approximation, or 


something similar. 


REM PROGRAM 


TO ANALYSE TAPE COUNTER READINGS 


REM AND PRINT TABLE 


REM 


DIM RDNC32), 


FIT TO dt/GN=2xAxN + B 


NC32) 


I=0: CLS 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


REPEAT 


T=] +1 


“REWIND the tape, and then ZERO the" 
“counter. Input a series of pairs of" 
“tape counter readings, representing” 
“ONE MINUTE intervals at various" 
"positions on the tape. At least” 
“THREE PAIRS will be required,” 
“preferably near the beginning, middle” 
“and end of the tape, but the aore the" 
“better. Equal spacing is not” 
“necessary, but a good spread gives” 
“better accuracy. END WITH 0,0.” 


INPUT N1,N2 
IF Ni=0O AND N2=0 THEN 220 


RDNCTI)=1/¢N2-N1): 


UNTIL 


NCT)=CN24N19/2 
(T=32) OR (N2=0) 


IF N2=0 THEN NCO)=I-1 ELSE N(0)=32 
SIGMARDN=0: SIGMAN=0: SIGMANDN=0: SIGMANSQ=0 


TAPECTR Contd >>> 
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a = @ & 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


490 
500 
510 
920 
930 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 


660 
670 
680 
690 
700 


. TAPECTR Contd >>> 


REM Fit a straight line to the data using 

REM Gauss’s method of least squares 

FOR I=1 TO NCO) 

SIGMARDN=SIGMARDN+RDNCI ) 

SIGMAN=SIGMAN+NCI) 
SIGMANDN=SIGMANDN+NC I) *RDNCI) 
SIGMANSG=SIGMANSG+NC(I)*2 

NEXT I 

D=NC0O) *xSIGMANSG-SIGMAN%*2 

B= CSI GMARDNXxSIGMANSQ-SIGMAN*SIGMANDN) /D 
A=(NCO) *xSIGMANDN-SIGMAN*SIGMARDN) /(€2x*D) 

REM The fitting half of the program ends here. 
REM PROGRAM TO PRINT CONVERSION TABLES 

REM OF TAPE COUNTER VERSUS TIME 

@%=&02020D: REM Set format to fixed 2 decimal 
REM places and 13 character columns. 

INPUT “GIVE A HEADING FOR THE TABLE",HS 
TH=40~-0.5*xLENCHS > 

PRINT “A = ";A;" B= “3B 

INPUT “OK” ,WS 

REM Strip leading blanks Cif any) and see if first 
REM word begins with upper or lower case Y. 

IF LEFTSCWS$,1)=" “ THEN WS=RIGHTS(WS,LENCWS)-1): GOTO 
480 

IF LEFTS(WS$,12="Y" OR LEFTSCWS,1)="y" THEN 540 
INPUT “A,B (<space> to leave calculated value!]“,WS,X$ 
W=VALCWS): IF W<>0 THEN A=W 

X=VALCX$): IF X<>0 THEN B=X 

PRINT “A = “3A;" B= “3B 

VDU 2: REM Turn on printer 

REM Print table heading 

PRINT TABCTH);HS : PRINT 

PRINT TABC7)"Counter Minutes.Seconds"; 

PRINT SPCC(7)}"Minutes“SPC(9)"Counter”: PRINT 
REM Print table 

FOR I=1 TO 45 

C=AxI*2+BxI 

REM Convert C to MM.SS format 
D=INTCC)+3x(C-INTCC))/5 
E=(-B+SQRCB*2+4xAx4xI)9/C2xA) 

PRINT I,D,”" ",4xI,° “E 

NEXT I 

VDU1,12: REM Eject sheet 

VDU 3: REM Turn off printer 

@%=&90A: REM Set format back to standard 

STOP: END 
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VIiFEWSHEE TIT? 3? sz 
by Anne Flower, Wellington. 


Perhaps better late than never - September Beeblet asked 
for a Viewsheet “expert” to help Roger Gonin. Now you 
might think that from the number of times I have asked for 
help using Viewsheet through these columns I couldn’t 
possibly be classed as an expert could 1?? 


However, I’ve just bought Computer Concept’s Mega Rom. I 
have solved every problem [ and Roger have expressed 
simply by using InterSheet!! Viewsheet does theoretically 
have a way of copying data as Roger desires, but I could 
never get it to work properly either, despite reading the 
“manuals” thoroughly. 


With Intersheet I’ve hardly used the manuals (just as well 
~ there’s hardly any desk space where that computer is). 
I love the way you can have more than one spreadsheet in 
memory - copying data between them is a doddle - and so is 
Saving particular data to a disc file to import to a 
different sheet without having to have both sheets in 
memory at a time. (Just read the fine print in the addenda 
to the manual - that is where you find that you press TAB 
after importing data for the actual digits to be displayed 
~ I wondered why there were zeroes in the cells). 


So tell Roger to spend a few dollars more - what the 
Computer Concept’s manuals say can be done, DOES work. 


=sa SS SSS ee eS SES SSS se ee re ee ee ee ee ee ee ee ee ee es ee ee ee es ee ee eee we ee we oe 
—_——e——— eee ee eee ew eee ee Se eee SS ee eee ee eee we eee S22 2t z= ZZ 


Advert for ZFUPPERWARE 


We’ve squandered rather a lot of money lately, and now 
wish to be penny-wise. A colour printer doesn’t have to 
have a colour ribbon in it all the time when most of your 
printout is still in black-and-white, so it makes sense to 
buy a black-only ribbon for general use. But what about 
the colour ribbon drying out? 


Ours is in Tupperware! Being airtight and moisture-proof 
Should Keep the ribbon fresh for whenever it is needed; 
and the ribbon for the Star NX1000 fits nicely in a Junior 
Square round. Two would. So do 3.5" discs - better than 
carrying them round loose in a bag with all the attendant 
dangers. Our Citoh ribbons (traditionally we use a new 
one for good quality printout and use older paler ones for 
draft copies) fits ina Square-Away. 
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For those unaware of the standing offer I made some months 
ago, just a reminder that I will be pleased to save _ you 
the trouble of typing in programs from Beeblet. When you 
send in your DFS disc Cor tape) with your contribution to 
Beeblet, include a note stating clearly the program you 
would like Cinclude Beeblet issue details). I can supply 
any program published since October 1986. 


The required program(s) will be recorded on your disc 
before it is mailed back to you. 


Note that this a privilege available to contributors only 
- I cannot deal with general requests. 


Di RECT Usft OF THE 


CASSETTE PORT 


Bytes can be directly written via the cassette port after 
the following commands 


*FX5,2 CSelects RS423) 
*FX8,3 €300 Baud) 
2&FE1O=S&AD (Switch to cassette & start motor) 


All characters sent after VDU2Z will go to the cassette 
port as well as the printer. 


CAU 2/84 P 168) 


See Page 18 for more programs from John Andrew’s program 
Library. 
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im T-CALCU 


pre 2s 


View Er rT 


by Roger Gonin, Dunedin. 


I am Treasurer of a Club which, like most others, receives 
the bulk of its annual [subscription] income during one 
fairly concentrated period of the year, but finds its 
expenditure arising in a different time-pattern from that. 


I suppose about half our expenses arise more or less 
regularly every month or second month - wages, power & 
gas, telephone, postage, minor upKeep and the like - while 
the other half consists of individually-larger lumps. Some 
of the latter are pretty predictable - annual insurance 
premiums, annual national affiliation fees, long-weekend 
tournaments, quarterly municipal rates, even if there is 
the occasional financial intruder such as a semi-major 
repair or refurbishment. 


In brief, it is not really very difficult to chart the 
majority of the Club’s expenditure for the year ahead once 
one has been in the job for a year or two and has acquired 
a feel for the cycle of its finances. 


Having identified the cashflow pattern it of course 
becomes possible to invest the income lump in a series of 
smaller lumps set due to mature to coincide with, and thus 
“fund", the likely expenditure. We find that even without 
considering interest from permanent capital funds we can 
stretch 50 annual subs into becoming 54 or 55 
subscription-equivalents simply by phasing them in that 
manner. 


Although it seems probable that the Inland Revenue 
Department will be getting its claws into interest earned 
by Clubs before very long, the IRD will still not take it 
all. It appears good sense, moreover, to do one’s best 


with income-investment in order to offset the 
re ee in revenue derived from capital-investment. 
word of caution, though - maximising investment can 


Sometimes induce a faint brief spasm of patriotism, but it 
Soon wears off again. 
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All this begs the question of what sort of investment, and 
the answer to that is not for this offering or perhaps 
even for this publication, save the general prophylactic 
“Spread the risk as widely among the acceptable outlets as 


possible". Suffice it to say that I favour fixed-term 
deposits for our Club, with as many different 
sound-looking Cas distinct from smart-sounding) 


institutions as possible. 


There is of course no longer any such animal as a Trustee 
List, so a Club can invest in any outlet which, in the 
circumstances, a prudent person would consider reasonable, 
but there is a fairly stringent duty of care involved. 
Club committee members are not normally trustees in the 
full legal sense, but there are some similarities and it 
is not a bad attitude for committee members to have the 
trustee mentality. 


Some institutions require a minimum amount per deposit. 
If that minimum is higher than the desired maturity amount 
one may be able to find the full minimum and be ready to 
re-invest or extend the excess at maturity. 


My preference for fixed-term investment arises from the 
degree of certainty one gets regarding maturity timing and 
amount. Also, with many institutions it is possible to 
obtain quarterly compounding of fixed-deposit interest, 
which has the benefit of raising usefully the true rate of 
interest over, say, a year. For instance, $1000 invested 
on ist April @ 12% pa. compounded quarterly produces not 
$120 at the following 3ist March but $125.51. It may not 
sound very much extra if said quickly, but $5.51 may well, 
for example, cover an evening’s electricity consumption at 
the Club. Like the man said, it all helps. 


The flip side of quarterly interest, whether compounded or 
taken in cash at each quarter-end, is wanting to be able 
to predict what the amount of interest is going to be, for 
two principal reasons. First, for the effect it will have 
on the quarter (etc)’s revenue and expenditure statement; 
second, to enable it to be diarized, for two sub-reasons: 


1 to provide a reminder that it is due and thus a firm 
starting-point from which to ensure that it is 
actually received in the correct amount on the 
correct date (even financial institutions make the 
occasional boo-boo); 

2 to permit it to be included in one’s cashflow 
forecast. 
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Consequently, Cand here we are drawing dangerously close 
to the point of all this waffle), it is useful to have a 
means of calculating quarterly interest readily in 
advance. Fortunately we live again and can draw back from 
the brink of revelation by observing that a precise 
calculation of interest requires a precise Knowledge of 
the particular institution’s practice, to a depth which 
few counter-tellers are able even to provide, much less 
understand. 


Does the day of deposit rank in the calculation? 

Does the day of maturity rank?  . 

In leap years is 366 taken as the divisor number of 
days -~ at all, - for the Jan-Mar quarter only, - etc? 
Is interest from, say, ist July to 30th September 
calculated as 3 months (i.e. 1/4 of a year exactly, 

= 92/368ths), or is it calculated as 92 days Ci.e. 

= 92/365ths)? 

If one is unlucky/unaware enough to choose maturity on 
a weekend or public holiday does the institution 
automatically extend the period to the first working 
day thereafter or does it let the date stand and maybe 
allow interest at Call Rate for the last calendar day 
or two? 


Even with those answers minor discrepancies can arise from 
programming techniques in relation to simple arithmetic. 
As one learnt in primary school, Cor was it in Kindy 
pooling and cutting up the fruit?), to get accuracy in a 


multiply and divide series one must ado all the 
multiplyings first followed by the Gividings in ascending 
order of size of divisor. Whether for reasons of 


forgetfulness, program speed, computer-memory constraints, 
or whatever, that sequence is not always followed by 
financial institutions’ computers. Generally speaking, 
too, fractions of cents are always rounded down, rather 
than up when >=50% as is the practice in real life. In a 
chain of several quarters’ compounding for sizable amounts 
such deficiencies may become noticeable differences from 
one’s own calculations. 


However, my hard-won experience here in what is still the 
net~investment-generating Capital of NZ is that the first 
day 1S not counted, the last is, leap year is recognized 
only in its first quarter, days rather than months are the 
basis used, and one does best by making sure ab initio to 
select a working day for maturity. | 
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TANTARA! TANTARA! 


We have now reached the beginning of this offering. To 
achieve the aims outlined above, I use a VIEWSHEET 


calculator constructed to provide an on-screen and 
hard-copy forecast/model of the interest expected to be 
earned by each deposit. It is not practicable to 
reproduce it slot-by-slot here, but others may be 


interested in some of its principal features. 


It covers any period A.D. for up to five years, i.e. 20 
quarters, at a time. It provides for leap years on_ the 
standard pattern of ’divisible by 4 without remainder 
excluding OO years’, but contains no adjustment back to 
the Julian calendar. Finally it incorporates the general 
finance-house practice described already. However, basic 
familiarity with VIEWSHEET is assumed from now on. 


After a header-Title, the first column consists of seven 
fieldnames to which the user inputs the answers in col.B 
(see end of article for details). The four crucial ones 
are the invested amount, the interest rate, and the 


investment and maturity dates. With those in, the 
calculation is complete, and the first three merely 
identify the deposit, e.g. on the print-out. All slots 


other than these seven have Protection switched on. 


The style of entry for both dates is critical, requiring 
eight characters for every single date - two characters 
for the day, two for the month, and four for the year, in 
that order and including leading zeros for single-digit 
days and months. The dates have to he analyzed into their 
components in order to count investment~-days, and _ the 
alternative was to use three fields for each date, but in 
terms of on-screen instruction that was just as cumbersome 
albeit in another way. 


Two Cinvisible) Lookup tables are used. A three-row one, 
(no. of the Quarter in the year; Date of the last day in 
the Quarter (4 digits again); no. of days in the quarter] 
across 5 columns of simple data, the first column 
consisting of 0,0,90. I include such a *’nil’ column in 
most Lookup Tables so that a true zero somewhere in the 
sheet does not result in a string of “?error’s elsewhere 
in it. That table runs from C5 to H7. 
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The other is vertical, purely because there waS a corner 
for it from Alt6 to B29. The As show the no. of each 
month in the year, from 0 to 12, while the Bs hold _ the 
number of days which precede that month from the start of 
the Quarter - 0,0,31,59,0,30,61,0,31,62,0,31,61. Both 
tables ignore leap year, which is dealt with as needed 
later on. 


Slots Ci0 to E10 perform the calculations which carve up 
the composite deposit date Cinput into BIO) into day, 
month and year, FiO works out the number of the Quarter 
(within the year) into which the deposit date falls, and 
G10 calculates how many quarters have elapsed from the 
beginning of year !AD to the end of the quarter preceding 
the deposit date. Row Cil to Gill does the same for the 
maturity date:- 


Cio INTCB10/1000000) 

DiO INTCB10/10000)-C10x«100 

E10 B1O-CINTCB10/10000))*x10000 
F1O IFC(D1050,INTCD1I0/3.13+1,0) 
G10 IFCF10)90, CE10-1)x*4+F10,0) 


The bit which I found most interesting was that to put the 
first applicable quarter on the first line of column 
C14C33:- 

Ci4 IFCF1090,F10,0) 


it was as easy, eventually, as that, once I had worked out 
that I could convert the date into a quarter no. in FiO. 


The next column, Year of the first quarter under 
consideration, is a straightforward transfer: 


Did IFCE10>0,E10,0) 
Then the first lookup table is accessed to find the last 
day of whichever quarter is currently held in C!4 and 
converts that last day back into our original input 
format, adding the year held in Di4:- 

E14 (LOOKUP(C14,D5H5,D6H6))x*10000+D14 


Next comes the leap-quarter check:- 


Fl4 IFCC14=1,1F(D14/4=INT(D14/4),1F(D14/100¢>INT(D14/100 
>,1,03,03,0) 
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Now the calculation of the number of days after the 
deposit day until the end of the quarter into which it 
falls, via the second Lookup Table as well as the second 
part of the first Table. However, fun starts here because 
the same quarter might well include the maturity date, and 
if so the number of days in the quarter has to be reduced 
accordingly:- 


Gi4 IFC€C144+¢0D14*10))9¢C€CE11*10)+4+F11),LOOKUP(C14,D5H5,D7H 
7)+F14,LOOKUP(D11,A17A29,Bi7B29)4+C11+IF(D11=3,F14,0) 
»-Ci0O-~LOOKUP(D10,A17A29,B17B29)-IF(D10=3,F14,0) 


At long last we are ina position actually to calculate 
interest. Fi4¢, the leap-quarter check, can have a value 
of only 1 or OQ. Consequently it can be used as the 
leap-day when required:- 


H14 CINTCB8*B9*G14/03654+F14)))/100 


The end of the quarter’s process is to do the actual 
compounding, i.e. to add the interest to the opening 
amount so as to create the amount on which the next 
quarter’s interest is calculated:- 


114 IFCH1450,B8+H14,0) 


The logic (¢?!) of C14114 is repeated for C15I15 down to 
C33133, but the formulae are slightly different because 
they need to derive from the previous quarter/row rather 
than from the carved-up input data. Each row also needs 
to test whether it is necessary or whether the investment 
matured in the previous quarter:- 


Ci5 IFC(G1O+1)<=G11,1F¢(C14=4,1,014+1),0) 

Di5 IF(C1590,I1F¢(C14=4,D14+1,D14),0) 

Ei5 (LOOKUP(C15,D5H5,D6H6))*10000+DI15 

Fi5 IFCCi5=1,1F(D15/4=INT(D15/4), 1 FCD15/100¢ > INTCDIS/ 
100),1,0),0),0) 

G15 1[FC(C15+(D15*10)3<CCE11%103+F11),LOOKUP(C15,D5H5, 
D7H7)+F15,LOOKUP(D11,A17A29,Bi7B29)+Cilt+IFCDi1=3, 
F15,0)) 

H15 CINTCI14*B9xG15/(365+F15)))/100 

Ti5 IFCH1550,114+H15,0) 


G35 and H35 respectively total the number of 
investment-days and the interest for thc whole period. 
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With windows set, the output looks like the figure on the 
following page, both on screen and printed out. 


No doubt I have succeeded in confusing thoroughly most who 
have read this far while not providing sufficient details 
for anyone wanting to use this spreadsheet or to adapt it. 


I will be happy to furnish working copies, complete with a 
separate windows file and a blank windows file, all in 
Mode 128. From the ’empty’ state of 28646 Bytes Free, 
this application brings that down to 19148 on _ the 
Masteri28. 


Please send a blank formatted disc, with a note of what 
that format is. (I can handle 5 1/4" DFS40/80, 5 1/4" 
ADFS and 3 1/2"ADFS). Please send also a return label 
bearing the correct return postage-stamps, which I can 
simply affix to the outside of your envelope. 


My home address is 30 Lynn St, 





Dunedin, 
Telephone: €024) 772-711 
Editorial Comment: 1 hope that Roger’s efforts in 


explaining his specific use of VIEWSHEET is appreciated by 
readers. 


Support his efforts by: 


1. correspondence to Roger with comments and/or requests 
for copies of his spreadsheet, or 


as contributions to Beeblet with your own uses of 
Spreadsheets Cor other ROMs). 


It is frequently easier to further develop or modify 
programs than to write you own from scratch. I’m sure 
Roger would be happy to have his efforts used as a 
stepping stone. 


Also, by sharing your own developments, it may open “the 
door for constructive comments that could make 
improvements to your own programs. 
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68 Qa. 
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f. t 


TVE-YEAR 


Institution 
Instrument~-type 
Instr/Cert/Ac.no 
AMOUNTSc 
INTERESTRATE%pa 
xDepositDate 
xMaturityDate 


xAll dates to be 
input ddmmYYYY 
i.e .MAY=05,etc 





BUARTERLY-CO 


DATA Qtr end 
XYZ BldgSoc 30091988 


TermDeposit 
4184 

328.47 
16.50 
20071988 
20071989 


POUNDED 


31121988 
31031989 
30061989 
30091989 


ooo0occeooodo0ooooceqo 


TABULATOR 
Year Days Int.s¢ NewCapse 
1988 72 10.69 339.16 
1988 92 14.10 353.26 
1989 90 14.37 367.63 
1989 91 15.12 382.75 
1989 20 3.46 386.21 
6) © 0.00 0.00 
a) Oo 0.00 0.00 
) Oo 0.00 0.00 
te) Oo 0.00 0.00 
6) © 0.00 0.00 
0 Oo 0.00 0.00 
0 Oo 0.00 0.00 
0 0 0.00 0.00 
to) O 0.00 0.00 
fe) © 0.00 0.00 
O Oo 0.00 0.00 
fe) Oo 0.00 0.00 
fe) 0 0.00 0.00 
@) Oo 0,00 0.00 
O_O 0,00 0.00 
365 57.74 


PROCEDURE (£ITBEABRY 


Collected by John Andrew, Wellington. 


Well, look what I’ve found. Some more procedures from 
John’s Library. 
But before I proceed further, I must supply corrections to 


two of the procedures published in December 1988. The 
first was on page 26, had two errors, and is corrected 


below: 


LISTING UNLISTABLE PROGRAMS 


Some programs refuse to respond to the LIST command due to 
codes used within the program. The following KEY 
definition will eliminate the unnecessary codes from a 


BASIC progran. 


*KEY O FOR I%=PA. TO TOP: IF?I%=13 TH.I%=I%+3: 
N. ELSE IF?I%<32 THEN ?1%=0O:N. ELSE N.iM 


(AU 12/83 P 81) 





The second procedure appeared on page 34. In this case 
there must not be a space after the line number (See 
comment on formats, Page 23); the procedure is corrected 


below. 
MS UTOMA TIC UFPDATE OF 
KPROGRAM VERSION NUMBER 


To make the disc file update the version number of your 
program usc the following in the first line of your 
program. 


1xKEYSSA."P.numberA" ;MQ=PA.+21:?@=70Q+1:Q%=&BO0+7&B09: 
Q%?7?13=?70°M 


Once this line has been activated press KEY £9 to update 
the version and SAVE. 


(AU 1/85 P 131) 
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Running into RAM memory shortage problems is an unwelcome 
experience. 


One solution is to divide the program into two separate 
programs. The first establishes a number of setup 
commands such as VDU sound channel settings, * calls etc. 


The same effect can be obtained by arranging a_ single 
program list to self delete the initial commands after 
they have been executed. The following program header 
ensures that lines 100 to 900 of any program will be 
executed, then deleted and RAM space recovered. The first 
operation in line 1000 changes line 100 to a REM and then 
deletes all lines between 100 and 900. 


0 GOTO 100 
100 REM first line of code used in first pass 
900 REM last line of code used in first pass 
1000 !¢CPAGE+4)=&F4:RESTORE 100:1%=2+!&1C AND &FFFF:REPEAT: 
I%=I%-1:UNTIL I%?-1=&0D: ?1%=SFF: {&12=1%+1:RUN 


(MU 2/88) 


RAM memory is also gobbled up if string variables get 
re-assigned with progressively longer text as the program 
runs. RAM space used on the shorter strings is abandoned 
and is not re-used. To prevent this wastage, initial 
assignment to the longest string should be made early in 
the program. E.g. AS=STRINGS$(100," “) will ensure that 
only one allocation is made for A$ and it will allow space 
for up to 100 characters to he reserved. 


Memory size can be monitored progressively with use of the 
statement: PRINT HIMEM-C!2 AND &FFFF) 


MU 5/87 p 164 


Another hint for space saving is to use a single string to 
prompt an input statement if many ’Input’ statements are 
required. E.g. AS="Enter the name, up to 12 characters”, 
followed later by PRINTAS:INPUT Texts. 
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PAUL T FE INDING £M BAST & 
The error reporting system is sometimes inadequate to 
identify syntax problems in programming when multi- 


statement lines are used. To localise problems, break up 
the lines temporarily at each colon (:) point ~- eg. 


120 FORR I=TO 3:REPET:PRNT "GO 
130 NEXT 


would become 


120 FORR I[=TO 3 
121 :REPET 

122 :PRNT “GO 
130 NEXT 


If a statement causes trouble and you wish to debug other 
parts of the program, temporarily put a REM statement just 
after the line number and just after each colon (¢:) 


CAU 5/86 P52) 


CASSETTE Fi fii NG SYSTEM 
WORKSPACE 


The cassette filing workspace is allocated as shown below. 
Some typical values are also shown. 


3B2 - 3BD Filename 

3BE - 3C1l Load address 

SCZ = 3CS Execution address 

3C6 - 3C7 Block number 

3C8 ~- 3C9 Length of block 

3CA Block flag byte Cprotection) 
3CB - 3CE Spare 

3CF ~ 3D0 Check digits 


To directly access the values from memory : - 
PRINT*C?&3C6X256+7&3C8) will give the program length 
PRINT*C!&3BE.,ANDC&FFFF) will give the load address 
PRINT* CL{&3C23)ANDC&FFFF) will give the execution address 
PRINTS&3B2 will give the filename. 


CAU 1/84 P 68, 2/84 P 47) 
ea a ee eT ee a ee ee ae ee ee ee 
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hi SiiinNGa THE CONTENTS 
OE” KEY DEFINT TIONS 


The following will list the contents of the function Keys: 


10 REM Program to list userdefined Keys 

20 REM SAVE “KEYlst" 

30 PRINT“Character space remaining: “;255-?&B10 

40 FORK%=0 TO 15 

50 IF ?C&BOO+K%)=?7&Bi10 THEN PRINT“Key ";K%"Undefined”: 
GOTO180 

60 S%=?C&BOO+K%S +1 

70 E%=?&B10 

80 FOR I%=0 TO 15 

90 L%=?C&BOO+I %) 

100 IF L%>S% AND L%<E% THEN E%=L% 

110 NEXT I% 

120 PRINT"Key “;K%;" “; 

130 FOR I%=0 TO E%-S% 

140 L%=? C&BOO+SS+1%) 

150 IF L%>=&20 THEN PRINTCHRS(L%) ; 

160 NEXT 1% 

170 PRINT | 

180 NEXT K% 

190 END 





REMOVAL OF SPURIOUS 


CHARACTERS FROM PRINTERR  iL2i5TF 


To avoid the > and other print instructions appearing at 
the start of a print instruction use the sequence 


Type LIST, press CTRL with B and press RETURN. 


To avoid the > appearing at the bottom of the print list 
requires deleting the next > from the printer buffer 
before it leaves the computer. This can be achieved by 
pressing CTRL with A, and then DELETE, and then CTRL with 
C and RETURN. 


CAU 2/85 P 117) 
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FORGOTTEN OPTIONS 


A number of simple * commands are available to 


Turn sound off *FX210, 1 
Turn sound on *FX210,0 
Disable ESCAPE *FX14,6 
Enable ESCAPE *FX13,6 
Disable EDIT Keys xFX4, 1 
Enable EDIT Keys xEXK4 
Avoid BREAK action KKEY10 OLD: M 
Cor re-run) *KEY1O OLD:M RONIM 





CONVERTING INPUTS 
IO UPPER CASE 
To ensure the response from the Keyboard is in upper case 
use the statement AS$=CHRS(GET AND 953 


CAU 1/86 P 51) 





LO PRINT COLOURED LINES 





LIN MODE 7 





To print a coloured line in MODE 7, define a string 
variable as follows: 


AS$=CHRS$ 133+CHRS 157+CHRS$ 136+CHRS$133 


then the command PRINTAS will print a coloured line on the 
screen. Ta vary the colour, changing the CHR$133 as in 
the following example program will produce a series of 
different coloured lines on screen: 


10 FOR Z=129 TO 135 
20 AS=CHRS$Z+CHR$ 157+CHRS$ 1 36+CHR$Z 


30 PRINTAS 
40 NEXT I 


ee 
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Despite checKing of the magazine after receipt from the 
printer, it has been discovered that some copies of the 
December issue of Beeblet that have defects have been 
mailed. Examples have been pages missing, significant 
smudges, or misbinding. 


If the Beeblet you have received has been defective, 
please advise: 


Mailing Officer 

BBC/Acorn User Group NZ Inc 
PO Box 9592 

Wellington 


supplying details of the defects Cenclose the magazine if 


possible) and a replacement will be arranged. We 
apologise for any inconvenience that may have been 
created. 


Li STING OF PROGRAMS 


I employ a common practice to leave a space after the line 


number in published programs to make for easy reading. In 
general, it is recommended this space not be typed in - it 
just wastes memory. If you want your program displayed 


with the space after the line number, just use the LISTO 
command (User Guide, Page 290). 


Where the contents of a program line are too long to fit 
in the standard Beeblet line, every endeavour is made _ to 
split the line after a colon (:). When typing in such a 
split line, do not include a line return after the colon, 
but follow on without .a Space. 


22.2 S. 2 2,2.2.2.2,0.0,.0,.2,9,2,0.0,2,2,9,0,.9,0,2,5,.2.2,2,9,5,2,2,9,0,9,9,5,5,0,0,2,2,9,9,9,9,0,9,0,2,5,9,.9,5,0,5 
MEMBER SH i fF 


Membership of the National User Group is on payment of an 
annual subscription from April to March, which is $20.00 
for the 1988/9 year. A local branch levy may be payable 
which entitles attendance at meetings as detailed on the 
back page. Joining or renewing members get all the back 
issues of Beeblet for the current year - those joining 
after 1! October may have half the annual subscription 
waived and only receive Beeblet from 1 October. 
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SER GROUP Ef. 


AUCKLAND: -2nd and 3rd Wednesday of each month at Social 
Club, Auckland Hospital, Grafton Road at 7.30pa. 
Contact John Buchanan (Secy), phone 546-985; David 
Wilkin (Pres), phone 437-540. 
North Shore: -~last Wednesday of the month, 7.30pm, Salvation 
Army Hall, Glenfield Road, Glenfield. 
Contact: Chris, Phone 419-0543 (wk). 


CHRISTCHURCH: ~fortnightly workshops, Monday 6.30pm at Hagley 
High School. phone Michael 582-267. 

DUNEDIN: —first Thursday of the month. 
Contact: Martin McDowall, Phone 42-031 

HAWKES BAY: -—2nd Sunday 2.30pm, Taradale Primary School . 


Contact Ron: 444-970, John: 445-729 (librarian), 
Major: 447-729, Mitch: 85-395. 


INVERCARGILL: -Southland Education Centre, 70 Doon St. Contact 
Bob Evans, 73-050 or Lyndon McEntee (020) 67-365. 
NELSON: -second Monday of the month, 7.30pm, Nelson Baptist 


Church, Bridge St. Contact: Peter, Richmond 8975; 
Ken, Nelson 85-150; Richard, Richmond 8489. 
PALMERSTON NORTH:-Phone Brian Knowles 79-319. 


ROTORUA: -first Tuesday of month, Science Lab at Rotorua 
Girls High School. Phone: Ian 85-583, Joan 81-536 
Tony 89-316. 

TAUPD: —-every second Wednesday, 7.00pm. 
Contact: David 84-215 (h), 85-124 (wk). 

TAURANGA: —-every second Wednesday. ph. Chris & Jane 65-076. 

TIMARU: —Phone Lloyd van der Krogt Timaru 61-412. 

TOKOROA: ~ist Friday of month, 7.30pm, Tokoroa High School. 


Contacts: Don Fraser, 68-613 or Graeme Robertson, 
65-346 Tokoroa. 


WAIKATO: -first Monday of the month, 7.30pm, Waikato Tech 

Institute. Ph. Alison or John, Morrinsville 6695. 

WELLINGTON: -usually second Wednesday, 7.30pm, Royal Society 
Lecture Theatre, Turnbull St, Thorndon. 

—Wor kshops: fourth Tuesday of month, other 


details: ph. Don 848-235 or Mike 785-437. 
OTHER CENTRES: -let us know and we will publish details here. 


BEEBLET 
PUBLISHED: monthly except January and mailed to financial members. 
CONTRIBUTIONS: ~most welcome. Listings should be sent in on tape 
or disc. (Tape - 2 copies, one at 300 baud please). Please 
include written explanation of listing; text and graphics only 
material welcome too. 


DEADLINES: -For a particular issue, the last day for materia. 
is the fifteenth day of the month prior to publication. 
ADVERTISING: -No fixed charge is made for advertising. Supp: . 


camera ready, deadlines as above. 
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